/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / UserCode / setAwkMode.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 73 65 74 41 77 6b | 4d 6f 64 65 2e 74 63 6c |..setAwk|Mode.tcl|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 04 99 00 | 00 01 7e a9 a2 a2 c0 a9 |........|..~.....|
|00000060| a2 a2 c0 00 00 04 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f1 bc 00 00 |........|........|
|00000080| 23 20 46 49 4c 45 3a 20 | 73 65 74 41 77 6b 4d 6f |# FILE: |setAwkMo|
|00000090| 64 65 2e 74 63 6c 0d 23 | 0d 23 20 4c 41 53 54 20 |de.tcl.#|.# LAST |
|000000a0| 55 50 44 41 54 45 3a 20 | 30 31 2f 30 37 2f 39 33 |UPDATE: |01/07/93|
|000000b0| 20 38 3a 33 33 3a 33 33 | 20 41 4d 0d 23 0d 23 20 | 8:33:33| AM.#.# |
|000000c0| 54 68 69 73 20 66 69 6c | 65 20 63 6f 6e 74 61 69 |This fil|e contai|
|000000d0| 6e 73 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ns the f|ollowing|
|000000e0| 20 54 43 4c 20 70 72 6f | 63 65 64 75 72 65 28 73 | TCL pro|cedure(s|
|000000f0| 29 3a 0d 23 0d 23 09 73 | 65 74 41 77 6b 4d 6f 64 |):.#.#.s|etAwkMod|
|00000100| 65 20 2d 2d 20 75 73 65 | 64 20 77 69 74 68 20 63 |e -- use|d with c|
|00000110| 68 61 6e 67 65 4d 6f 64 | 65 20 26 20 41 57 4b 20 |hangeMod|e & AWK |
|00000120| 70 72 6f 67 72 61 6d 6d | 69 6e 67 20 6c 61 6e 67 |programm|ing lang|
|00000130| 75 61 67 65 0d 0d 23 20 | 43 4f 50 59 52 49 47 48 |uage..# |COPYRIGH|
|00000140| 54 3a 0d 23 0d 23 09 43 | 6f 70 79 72 69 67 68 74 |T:.#.#.C|opyright|
|00000150| 20 a9 20 31 39 39 33 20 | 62 79 20 44 61 76 69 64 | . 1993 |by David|
|00000160| 20 43 2e 20 42 6c 61 63 | 6b 0d 23 09 41 6c 6c 20 | C. Blac|k.#.All |
|00000170| 72 69 67 68 74 73 20 72 | 65 73 65 72 76 65 64 2e |rights r|eserved.|
|00000180| 0d 23 0d 23 09 52 65 64 | 69 73 74 72 69 62 75 74 |.#.#.Red|istribut|
|00000190| 69 6f 6e 20 61 6e 64 20 | 75 73 65 20 69 6e 20 73 |ion and |use in s|
|000001a0| 6f 75 72 63 65 20 61 6e | 64 20 62 69 6e 61 72 79 |ource an|d binary|
|000001b0| 20 66 6f 72 6d 73 20 61 | 72 65 20 70 65 72 6d 69 | forms a|re permi|
|000001c0| 74 74 65 64 0d 23 09 70 | 72 6f 76 69 64 65 64 20 |tted.#.p|rovided |
|000001d0| 74 68 61 74 20 74 68 65 | 20 61 62 6f 76 65 20 63 |that the| above c|
|000001e0| 6f 70 79 72 69 67 68 74 | 20 6e 6f 74 69 63 65 20 |opyright| notice |
|000001f0| 61 6e 64 20 74 68 69 73 | 20 70 61 72 61 67 72 61 |and this| paragra|
|00000200| 70 68 20 61 72 65 0d 23 | 09 64 75 70 6c 69 63 61 |ph are.#|.duplica|
|00000210| 74 65 64 20 69 6e 20 61 | 6c 6c 20 73 75 63 68 20 |ted in a|ll such |
|00000220| 66 6f 72 6d 73 20 61 6e | 64 20 74 68 61 74 20 61 |forms an|d that a|
|00000230| 6e 79 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |ny docum|entation|
|00000240| 2c 0d 23 09 61 64 76 65 | 72 74 69 73 69 6e 67 20 |,.#.adve|rtising |
|00000250| 6d 61 74 65 72 69 61 6c | 73 2c 20 61 6e 64 20 6f |material|s, and o|
|00000260| 74 68 65 72 20 6d 61 74 | 65 72 69 61 6c 73 20 72 |ther mat|erials r|
|00000270| 65 6c 61 74 65 64 20 74 | 6f 20 73 75 63 68 0d 23 |elated t|o such.#|
|00000280| 09 64 69 73 74 72 69 62 | 75 74 69 6f 6e 20 61 6e |.distrib|ution an|
|00000290| 64 20 75 73 65 20 61 63 | 6b 6e 6f 77 6c 65 64 67 |d use ac|knowledg|
|000002a0| 65 20 74 68 61 74 20 74 | 68 65 20 73 6f 66 74 77 |e that t|he softw|
|000002b0| 61 72 65 20 77 61 73 20 | 64 65 76 65 6c 6f 70 65 |are was |develope|
|000002c0| 64 0d 23 09 62 79 20 44 | 61 76 69 64 20 43 2e 20 |d.#.by D|avid C. |
|000002d0| 42 6c 61 63 6b 2e 0d 23 | 0d 23 09 54 48 49 53 20 |Black..#|.#.THIS |
|000002e0| 53 4f 46 54 57 41 52 45 | 20 49 53 20 50 52 4f 56 |SOFTWARE| IS PROV|
|000002f0| 49 44 45 44 20 22 41 53 | 20 49 53 22 20 41 4e 44 |IDED "AS| IS" AND|
|00000300| 20 57 49 54 48 4f 55 54 | 20 41 4e 59 20 45 58 50 | WITHOUT| ANY EXP|
|00000310| 52 45 53 53 20 4f 52 0d | 23 09 49 4d 50 4c 49 45 |RESS OR.|#.IMPLIE|
|00000320| 44 20 57 41 52 52 41 4e | 54 49 45 53 2c 20 49 4e |D WARRAN|TIES, IN|
|00000330| 43 4c 55 44 49 4e 47 2c | 20 57 49 54 48 4f 55 54 |CLUDING,| WITHOUT|
|00000340| 20 4c 49 4d 49 54 41 54 | 49 4f 4e 2c 20 54 48 45 | LIMITAT|ION, THE|
|00000350| 20 49 4d 50 4c 49 45 44 | 0d 23 09 57 41 52 52 41 | IMPLIED|.#.WARRA|
|00000360| 4e 54 49 45 53 20 4f 46 | 20 4d 45 52 43 48 41 4e |NTIES OF| MERCHAN|
|00000370| 54 41 42 49 4c 49 54 59 | 20 41 4e 44 20 46 49 54 |TABILITY| AND FIT|
|00000380| 4e 45 53 53 20 46 4f 52 | 20 41 20 50 41 52 54 49 |NESS FOR| A PARTI|
|00000390| 43 55 4c 41 52 20 50 55 | 52 50 4f 53 45 2e 0d 23 |CULAR PU|RPOSE..#|
|000003a0| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|000003b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003f0| 23 0d 0d 23 20 41 77 6b | 20 70 72 6f 67 72 61 6d |#..# Awk| program|
|00000400| 6d 69 6e 67 20 6d 6f 64 | 65 0d 70 72 6f 63 20 73 |ming mod|e.proc s|
|00000410| 65 74 41 77 6b 4d 6f 64 | 65 20 7b 7d 20 7b 0d 09 |etAwkMod|e {} {..|
|00000420| 63 68 61 6e 67 65 4d 6f | 64 65 20 22 41 77 6b 22 |changeMo|de "Awk"|
|00000430| 0d 09 75 70 6c 65 76 65 | 6c 20 23 30 20 7b 0d 09 |..upleve|l #0 {..|
|00000440| 09 73 65 74 20 65 6c 65 | 63 4c 42 72 61 63 65 20 |.set ele|cLBrace |
|00000450| 30 0d 09 09 73 65 74 20 | 65 6c 65 63 52 42 72 61 |0...set |elecRBra|
|00000460| 63 65 20 30 0d 09 09 73 | 65 74 20 65 6c 65 63 74 |ce 0...s|et elect|
|00000470| 72 69 63 53 65 6d 69 20 | 30 0d 09 09 73 65 74 20 |ricSemi |0...set |
|00000480| 77 6f 72 64 57 72 61 70 | 20 30 0d 09 09 73 65 74 |wordWrap| 0...set|
|00000490| 20 66 75 6e 63 54 69 74 | 6c 65 20 22 46 75 6e 63 | funcTit|le "Func|
|000004a0| 22 0d 09 09 73 65 74 20 | 66 75 6e 63 45 78 70 72 |"...set |funcExpr|
|000004b0| 20 7b 5e 23 3f 3a 3f 66 | 75 6e 63 74 69 6f 6e 20 | {^#?:?f|unction |
|000004c0| 2a 28 5b 61 2d 7a 41 2d | 5a 30 2d 39 5f 5d 2a 29 |*([a-zA-|Z0-9_]*)|
|000004d0| 5c 28 7d 0d 09 09 73 65 | 74 20 66 75 6e 63 50 61 |\(}...se|t funcPa|
|000004e0| 72 20 31 0d 09 09 73 65 | 74 20 73 6f 72 74 65 64 |r 1...se|t sorted|
|000004f0| 49 73 44 65 66 61 75 6c | 74 20 30 0d 09 09 73 65 |IsDefaul|t 0...se|
|00000500| 74 20 70 72 65 66 69 78 | 53 74 72 69 6e 67 20 22 |t prefix|String "|
|00000510| 23 20 22 0d 09 7d 0d 7d | 0d 00 00 00 00 00 00 00 |# "..}.}|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000590| 82 c0 60 04 82 fc 00 5e | 48 41 55 41 66 14 30 2f |..`....^|HAUAf.0/|
|000005a0| 00 04 b0 50 64 0c 20 70 | 00 14 30 28 00 4e 72 00 |...Pd. p|..0(.Nr.|
|000005b0| 0e 73 65 74 41 77 6b 4d | 6f 64 65 2e 74 63 6c 73 |.setAwkM|ode.tcls|
|000005c0| 02 00 00 00 54 45 58 54 | 41 4c 46 41 01 04 01 04 |....TEXT|ALFA....|
|000005d0| 00 00 54 45 58 54 41 4c | 46 41 01 04 01 04 00 00 |..TEXTAL|FA......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 a9 a2 5c 70 00 00 | 04 99 00 00 01 7e 10 1f |....\p..|.....~..|
|00000600| 20 5f 66 06 70 08 a2 60 | 60 04 70 08 a6 60 3e 80 | _f.p..`|`.p..`>.|
|00000610| 4e d1 22 5f 10 1f 20 5f | 66 04 a2 00 60 02 a6 00 |N."_.. _|f...`...|
|00000620| 3e 80 4e d1 22 5f 10 1f | 20 5f 66 04 a2 0a 60 02 |>.N."_..| _f...`.|
|00000630| a6 0a 3e 80 4e d1 22 5f | 10 1f 20 5f 66 04 a2 08 |..>.N."_|.. _f...|
|00000640| 60 02 a6 08 3e 80 4e d1 | 22 5f 10 1f 20 5f 66 04 |`...>.N.|"_.. _f.|
|00000650| a2 09 60 02 a6 09 3e 80 | 4e d1 22 5f 10 1f 20 5f |..`...>.|N."_.. _|
|00000660| 66 04 a2 0b 60 02 a6 0b | 3e 80 4e d1 22 5f 10 1f |f...`...|>.N."_..|
|00000670| 20 5f 66 04 a2 0c 60 02 | a6 0c 3e 80 4e d1 22 5f | _f...`.|..>.N."_|
|00000680| 00 00 00 48 00 0a 43 6f | 75 72 69 65 72 00 00 02 |...H..Co|urier...|
|00000690| 00 15 00 e3 b3 58 00 01 | 00 02 00 00 00 00 a0 0c |.....X..|........|
|000006a0| 00 00 00 e8 5a 26 00 04 | 00 04 00 5a 00 34 01 dd |....Z&..|...Z.4..|
|000006b0| 02 2e 00 5a 00 34 01 dd | 02 2e 00 34 5b fd 00 00 |...Z.4..|...4[...|
|000006c0| 04 99 00 00 04 99 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000006d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 d9 49 1c |...L...L|...2..I.|
|000006e0| 0b c2 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000006f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 d9 48 54 00 00 |........|....HT..|
+--------+-------------------------+-------------------------+--------+--------+